home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / SPACEVIK.DSK / SHIP # 4 I.D..bas < prev    next >
BASIC Source File  |  2014-09-09  |  2KB  |  34 lines
  1. 0  ONERR  GOTO 63999
  2. 2  POKE 974,32
  3. 10  POKE 38151,0: POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,16: FOR J = 1 TO 16: VTAB J: HTAB 1: PRINT "                                        ": NEXT : VTAB 1
  4. 12  HCOLOR= 1: HPLOT 1,1 TO 161,1 TO 161,123 TO 1,123 TO 1,1
  5. 13  FOR J = 7 TO 161  STEP 5: HPLOT J,1 TO J,123: NEXT 
  6. 14  FOR J = 5 TO 123  STEP 5: HPLOT 1,J TO 161,J: NEXT 
  7. 20  HCOLOR= 3:X1 = 80:Y1 = 40
  8. 25  GOTO 1000
  9. 30  DATA  1,-23,1,2,-23,-1,2,-15,-4,2,-11,-4,2,-10,-3,2,-10,3,2,-11,4,2,-15,4,2,-23,1
  10. 40  DATA  1,-23,0,2,-10,0,1,-15,4,2,-15,-4
  11. 50  DATA  1,-10,2,2,-6,2,2,-6,-2,2,-10,-2
  12. 60  DATA  1,-6,2,2,-5,4,2,-5,1,2,-6,0,2,-5,-1,2,-5,-4,2,-6,-2
  13. 70  DATA  1,-5,4,2,23,4,2,23,-4,2,-5,-4,1,-5,-1,2,20,-1,1,-5,1,2,20,1,1,0,3,2,5,3,1,10,3,2,15,3,1,0,-3,2,5,-3,1,10,-3,2,15,-3,1,20,-4,2,20,4
  14. 80  DATA  1,2,4,2,2,6,1,4,4,2,4,6,1,13,4,2,13,6,1,15,4,2,15,6,1,-2,6,2,20,6,2,20,10,2,-2,10,2,-2,6,1,-2,7,2,-3,7,2,-3,9,2,-2,9
  15. 90  DATA  1,19,10,2,19,6
  16. 100  DATA   1,2,-4,2,2,-6,1,4,-4,2,4,-6,1,13,-4,2,13,-6,1,-2,-6,2,-2,-10,2,20,-10,2,20,-6,2,-2,-6,1,-2,-7,2,-3,-7,2,-3,-9,2,-2,-9,1,19,-6,2,19,-10
  17. 105  DATA  1,15,-6,2,15,-4
  18. 107  DATA  77
  19. 110  DATA  1,-23,0,2,-23,1,2,-15,1,2,-15,0,2,-23,0,2,-15,-1,2,-15,4,2,-23,1
  20. 120  DATA  1,-15,4,2,-10,4,2,-10,-1,2,-15,-1,1,-11,4,2,-11,-1,1,-10,3,2,-6,3,2,-6,0,2,-10,0,1,-6,3,2,-5,4,2,-5,0,2,-6,0,1,-6,2,2,20,2,1,-5,4,2,20,4,2,20,0,2,-5,0,1,2,2,2,2,-1,1,4,2,2,4,-1,1,13,2,2,13,-1,1,15,2,2,15,-1
  21. 130  DATA  1,20,3,2,23,3,2,23,0,2,20,0,1,-2,-1,2,20,-1,2,20,-3,2,-2,-3,2,-2,-1,1,-1,-1,2,-1,-3,1,1,-2,2,6,-2,1,13,-2,2,19,-2,1,-2,4,2,-2,5,2,0,5,2,0,4,1,-1,5,2,-1,8,2,0,7,2,1,6,2,-.5,5,1,-1,7,2,-2,7
  22. 140  DATA  127
  23. 1000  READ C
  24. 1003  IF C = 77  THEN Y1 = 90: GOTO 1000
  25. 1005  IF C = 127  THEN 1060
  26. 1010  READ X,Y
  27. 1020 X = X1 -(X *2):Y = Y1 -(Y *2)
  28. 1030  IF C = 1  THEN  HPLOT X,Y
  29. 1040  IF C = 2  THEN  HPLOT  TO X,Y
  30. 1050  GOTO 1000
  31. 1060  VTAB 1: HTAB 25: PRINT "  -SHIP I.D.-": VTAB 3: HTAB 25: PRINT "HEAVY CRUISER": VTAB 5: HTAB 25: PRINT "WITH PHOTON": VTAB 7: HTAB 25: PRINT "MISSILES AND": VTAB 9: HTAB 25: PRINT "HEAVY LASERS.": VTAB 11: HTAB 25
  32. 1061  PRINT "20-40 FIGHTERS"
  33. 1070  VTAB 12: HTAB 24: GET A$: PRINT " ": PRINT "<CTRL-D>RUN RADAR"
  34. 63999  PRINT : PRINT "<CTRL-D>INT"